// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .CS}

//-------------MAIN---------------
thread 'XYZA' 
33@ = 0 
3@ = 0 
4@ = 0 
5@ = 0 
11@ = 0 
12@ = 0 
13@ = 0 
9@ = 0

0adf: "CRDSX" "X=~1~.~1~,"
0adf: "CRDSY" "Y=~1~.~1~,"
0adf: "CRDSZ" "Z=~1~.~1~,"
0adf: "CRDSA" "A=~1~,"
0adf: "CRDSI" "I=~1~"

:XYZA_43
wait 0 
if 
   Player.Defined($PLAYER_CHAR)
jf @XYZA_43 
077E: get_active_interior_to 10@ 
03F0: enable_text_draw 1 
0349: set_text_draw_font 3 
0340: set_text_draw_RGBA 255 255 255 255 
033F: set_text_draw_letter_size 0.5 0.9 
060D: draw_text_shadow 1 rgba 50 50 255 255 
045B: draw_text_2numbers 17.0 1.0 GXT 'CRDSX' numbers 3@ 11@ 
0349: set_text_draw_font 3 
0340: set_text_draw_RGBA 255 255 255 255 
033F: set_text_draw_letter_size 0.5 0.9 
060D: draw_text_shadow 1 rgba 50 50 255 255 
045B: draw_text_2numbers 140.0 1.0 GXT 'CRDSY' numbers 4@ 12@ 
0349: set_text_draw_font 3 
0340: set_text_draw_RGBA 255 255 255 255 
033F: set_text_draw_letter_size 0.5 0.9 
060D: draw_text_shadow 1 rgba 50 50 255 255 
045B: draw_text_2numbers 280.0 1.0 GXT 'CRDSZ' numbers 5@ 13@ 
0349: set_text_draw_font 3 
0340: set_text_draw_RGBA 255 255 255 255 
033F: set_text_draw_letter_size 0.5 0.9 
060D: draw_text_shadow 1 rgba 50 50 255 255 
045A: draw_text_1number 420.0 1.0 GXT 'CRDSA' number 9@ 
0349: set_text_draw_font 3 
0340: set_text_draw_RGBA 255 255 255 255 
033F: set_text_draw_letter_size 0.5 0.9 
060D: draw_text_shadow 1 rgba 50 50 255 255 
045A: draw_text_1number 500.0 1.0 GXT 'CRDSI' number 10@ 
if 
  33@ > 1000 
jf @XYZA_43 
33@ = 0 
Actor.StorePos($PLAYER_ACTOR, 0@, 1@, 2@)
0092: 3@ = float 0@ to_integer 
0092: 4@ = float 1@ to_integer 
0092: 5@ = float 2@ to_integer 
0093: 6@ = integer 3@ to_float 
0093: 7@ = integer 4@ to_float 
0093: 8@ = integer 5@ to_float 
0063: 0@ -= 6@ // (float) 
0063: 1@ -= 7@ // (float) 
0063: 2@ -= 8@ // (float) 
0@ *= 10000.0 
1@ *= 10000.0 
2@ *= 10000.0 
0092: 11@ = float 0@ to_integer 
0092: 12@ = float 1@ to_integer 
0092: 13@ = float 2@ to_integer 
if 
  0 > 11@ 
jf @XYZA_27C 
11@ *= -1 

:XYZA_27C
if 
  0 > 12@ 
jf @XYZA_295 
12@ *= -1 

:XYZA_295
if 
  0 > 13@ 
jf @XYZA_2AE 
13@ *= -1 

:XYZA_2AE
9@ = Actor.Angle($PLAYER_ACTOR)
0092: 9@ = float 9@ to_integer 
0AF0: 25@ = get_int_from_ini_file "CLEO\POZIT.INI" section "ABLE" key "MOD" 
if 
  25@ == 1 
jf @XYZA_2F6 
03F0: enable_text_draw 0
 end_thread
END_THREAD 

:XYZA_2F6
jf @XYZA_43 
jump @XYZA_43
